home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr05 / att33all.zip / CALABOUT.FRM < prev    next >
Text File  |  1994-08-02  |  3KB  |  86 lines
  1. VERSION 2.00
  2. Begin Form CalAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About Calendar"
  6.    ClientHeight    =   2910
  7.    ClientLeft      =   2520
  8.    ClientTop       =   2505
  9.    ClientWidth     =   4005
  10.    ControlBox      =   0   'False
  11.    Height          =   3345
  12.    Icon            =   CALABOUT.FRX:0000
  13.    Left            =   2445
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2910
  18.    ScaleWidth      =   4005
  19.    Top             =   2145
  20.    Width           =   4155
  21.    Begin CommandButton Command1 
  22.       Caption         =   "OK"
  23.       Default         =   -1  'True
  24.       Height          =   375
  25.       HelpContextID   =   3011
  26.       Left            =   1380
  27.       TabIndex        =   3
  28.       Top             =   2400
  29.       Width           =   1095
  30.    End
  31.    Begin Label Label1 
  32.       Alignment       =   2  'Center
  33.       BackColor       =   &H00C0C0C0&
  34.       Caption         =   "This pop-up calendar is based on a program that Don Schueler (76337,3115) made available in the MSBASIC forum on CompuServe for anyone to copy or modify. We made some slight changes to his code, but pretty much left things the way they were.  Thanks!"
  35.       FontBold        =   0   'False
  36.       FontItalic      =   0   'False
  37.       FontName        =   "MS Sans Serif"
  38.       FontSize        =   8.25
  39.       FontStrikethru  =   0   'False
  40.       FontUnderline   =   0   'False
  41.       ForeColor       =   &H00000000&
  42.       Height          =   1290
  43.       Index           =   2
  44.       Left            =   135
  45.       TabIndex        =   2
  46.       Top             =   915
  47.       Width           =   3690
  48.    End
  49.    Begin Label Label1 
  50.       Alignment       =   2  'Center
  51.       BackColor       =   &H00C0C0C0&
  52.       Caption         =   "Don Schueler"
  53.       ForeColor       =   &H00000000&
  54.       Height          =   315
  55.       Index           =   1
  56.       Left            =   -15
  57.       TabIndex        =   1
  58.       Top             =   510
  59.       Width           =   3990
  60.    End
  61.    Begin Label Label1 
  62.       Alignment       =   2  'Center
  63.       BackColor       =   &H00C0C0C0&
  64.       Caption         =   "VB Popup Calendar Example"
  65.       ForeColor       =   &H00000000&
  66.       Height          =   315
  67.       Index           =   0
  68.       Left            =   30
  69.       TabIndex        =   0
  70.       Top             =   150
  71.       Width           =   3960
  72.    End
  73. End
  74. Option Explicit
  75.  
  76. Sub Command1_Click ()
  77. Unload Me
  78. End Sub
  79.  
  80. Sub Form_Load ()
  81. Left = (Screen.Width - Width) / 2
  82. Top = (Screen.Height - Height) / 2
  83. Screen.MousePointer = 0
  84. End Sub
  85.  
  86.